Sacred & Secular/Sacred and Secular.iso/pc/movies/shared.dir/05036_Script_5036

Text File | 1996-04-03 | 703b | 41 lines

on startMovie
  set the keyDownScript = "checkKeys"
end

on checkKeys
  --
  --
  -- Check for quit, and volume keys
  --

  if the machineType = 256 then
    set quitKey = the controlDown and the key = "q"
  else
    set quitKey = the commandDown and the key = "q"
  end if

  if quitKey then
    doQuit
    exit
  end if

  if the key <= "9" and the key >= "0" then
    doSetVolume(charToNum(the key) - charToNum("0"))
    exit
  end if

  --put ">>>checkKeys" && the key

end

on doSetVolume n
  global gVolume

  set volList = [0, 7, 15, 31, 45, 63, 91, 127, 181, 255]

  set gVolume = getAt(volList, (n+1))

  setQTVol(gVolume)
end